require 'watir'
include Watir
require 'test/unit'
require '../watir.config.rb'
require '../resources/functions.rb'


class TC_MemberPointsSystem_test < Test::Unit::TestCase
    
    def startup
       $UserName = 'NewUser'
      $UserPassword= '123456'
      $UserEmail = 'newuser@user.com'
      @@ie = Watir::IE.start($SITE_URL)
    end
    
    def ie
      if defined? @@ie
        @@ie
      else
        startup
      end
    end
    
    def test_01_verifyHomeText
        assert(ie.contains_text(/Community Server/))		
      end
      
      
    def test_02_verifyLoginLinksExist
      if !(ie.link(:text, 'Sign in').exists?)
        ie.goto($SITE_URL + 'logout.aspx')
        ie.refresh
        ie.goto($SITE_URL)
        ie.refresh
      end
	  end

    def test_03_navigateToLogin
        ie.link(:text, 'Sign in').click
        assert(ie.contains_text("Sign in name"))
      end
 
	  def test_04_populateLoginForm
        ie.text_field(:id, /username$/).value = $ADMIN_USER
        assert(ie.text_field(:id, /username$/).verify_contains($ADMIN_USER))
        ie.text_field(:id, /password$/).value = $ADMIN_PASSWORD
        assert(ie.text_field(:id, /password$/).verify_contains($ADMIN_PASSWORD))
      end

   def test_05_submitLoginForm
        if(ie.button(:id, /loginButton$/).exists?)
          ie.button(:id, /loginButton$/).click
        else
        ie.link(:id, /loginButton$/).click
        end
        test_01_verifyHomeText
      end
    
    def test_06_verifyControlPanel
        assert(ie.link(:text, /Control Panel/).exists?)
        ie.link(:text, /Control Panel/).click
        assert(ie.contains_text(/Announcements/))
        assert(ie.link(:text, /System Administration/).exists?)
        ie.link(:text, /System Administration/).click
        assert(ie.contains_text(/Announcements/))
      end

    def test_07_verifyControlPanelLinks
        assert_equal $SITE_URL + 'controlpanel/', ie.link(:text, 'Dashboard').href
        assert_equal $SITE_URL + 'controlpanel/setup.aspx', ie.link(:text, 'Administration').href
        assert_equal $SITE_URL + 'controlpanel/BlogAdmin/', ie.link(:text, 'Blog Administration').href
        assert_equal $SITE_URL + 'controlpanel/MediaGalleryAdmin/', ie.link(:text, 'Media Galleries Administration').href
        assert_equal $SITE_URL + 'controlpanel/Forums/', ie.link(:text, 'Forum Administration').href
        assert_equal $SITE_URL + 'controlpanel/HubAdmin/', ie.link(:text, 'Group Administration').href
        assert_equal $SITE_URL + 'controlpanel/Membership/membersearch.aspx?SelectedNavItem=BrowseMembers', ie.link(:text, 'Membership Administration').href
        assert_equal $SITE_URL + 'controlpanel/Settings/default.aspx', ie.link(:text, 'Site Administration').href
      end
 
    def test_08_navigateToSiteAdministration
        ie.goto($SITE_URL + 'controlpanel/Settings/default.aspx')
        assert(ie.contains_text('Site Administration'))      
      end

    def test_09_verifyLinksExist
        # Make sure that all of the links exist
        assert(ie.link(:text, 'Log Out').exists?)
        assert(ie.link(:text, 'Help').exists?)
        assert(ie.link(:text, 'Go to Site').exists?)
        assert(ie.link(:text, 'Dashboard').exists?)
        assert(ie.link(:text, 'Administration').exists?)
        assert(ie.link(:text, 'Telligent').exists?)
      end

    def test_10_navigateToManageMemberPointsSystem
        ie.goto($SITE_URL + 'controlpanel/tools/PointSystem.aspx')
      end

    def test_11_navigateToGeneral
        assert(ie.radio(:id, /EnablePointSystem_0$/).exists?)
        assert(ie.radio(:id, /EnablePointSystem_1$/).exists?)
        ie.radio(:id, /EnablePointSystem_0$/).flash
        assert(ie.select_list(:id, /PointsPostDisplayLevel$/).exists?)
        ie.select_list(:id, /PointsPostDisplayLevel$/).flash
        assert(ie.select_list(:id, /PointsUserDisplayLevel$/).exists?)
        ie.select_list(:id, /PointsUserDisplayLevel$/).flash
        assert(ie.link(:id,/SaveButton$/).exists?)
        ie.link(:id,/SaveButton$/).click
      end
    
    def test_12_navigateToCreateUserAccount
        ie.goto($SITE_URL +'controlpanel/membership/UserAdd.aspx')
        assert(ie.text_field(:id,/username$/).exists?)
        ie.text_field(:id,/username$/).value = $UserName
        assert(ie.text_field(:id,/password$/).exists?)
        ie.text_field(:id,/password$/).value = $UserPassword
        password=ie.text_field(:id,/password$/).value
        assert(ie.text_field(:id,/password2$/).exists?)
        ie.text_field(:id,/password2$/).value =password
        assert(ie.text_field(:id,/email$/).exists?)
        ie.text_field(:id,/email$/).value = $UserEmail
        assert(ie.select_list(:id,/timezone$/).exists?)
        ie.select_list(:id,/timezone$/).select('(GMT +05:00) Islamabad, Karachi, Tashkent')
        assert(ie.button(:name,/createButton$/).exists?)
        ie.button(:name,/createButton$/).click
      end
      
    def test_13_loginUser
       test_02_verifyLoginLinksExist
       test_03_navigateToLogin
       ie.text_field(:id, /username$/).value = $UserName
       ie.text_field(:id, /password$/).value = $UserPassword
       ie.button(:id, /loginButton$/).click
       sleep 5
       ie.link(:text,'View public profile').click
       sleep 5
       if(ie.contains_text(/Points/)) 
        puts 'Settings already exists'
      end
    end
    
    def test_14_navigateToAdmin
        test_02_verifyLoginLinksExist
        test_03_navigateToLogin
        test_04_populateLoginForm
        test_05_submitLoginForm
        sleep 5
        ie.goto($SITE_URL + 'controlpanel/tools/PointSystem.aspx')
        assert(ie.radio(:id, /EnablePointSystem_0$/).exists?)
        assert(ie.radio(:id, /EnablePointSystem_1$/).exists?)
        ie.radio(:id, /EnablePointSystem_0$/).set
        assert(ie.select_list(:id, /PointsPostDisplayLevel$/).exists?)
        ie.select_list(:id, /PointsPostDisplayLevel$/).set('Show to everyone')
        assert(ie.select_list(:id, /PointsUserDisplayLevel$/).exists?)
        ie.select_list(:id, /PointsUserDisplayLevel$/).set('Show to everyone')
        assert(ie.link(:id,/SaveButton$/).exists?)
        ie.link(:id,/SaveButton$/).click
      end
    
    def test_15_loginUser
       test_02_verifyLoginLinksExist
       test_03_navigateToLogin
       ie.text_field(:id, /username$/).value = $UserName
       ie.text_field(:id, /password$/).value = $UserPassword
       ie.button(:id, /loginButton$/).click
       sleep 5
       ie.link(:text,'View public profile').click
       sleep 5
       ie.link(:href,/SearchResults/).flash
       sleep 3
       assert(ie.contains_text(/Points/))        
     end
    
    def  test_16_searchUser
        test_02_verifyLoginLinksExist
        test_03_navigateToLogin
        test_04_populateLoginForm
        test_05_submitLoginForm
        sleep 5
        ie.goto($SITE_URL +'controlpanel/membership/membersearch.aspx?SelectedNavItem=BrowseMembers')
        assert(ie.text_field(:id,/searchText$/).exists?)
        ie.text_field(:id,/searchText$/).value ="*"
        assert(ie.select_list(:name,/PageList$/).exists?)
        ie.select_list(:name,/PageList$/).select('10')
        sleep 3
        assert(ie.button(:id,/searchButton$/).exists?)
        sleep 2
        ie.button(:id,/searchButton$/).click
      end
      
    def test_17_navigateToDeleteUser
        sleep 5
        table1 = ie.table(:index, 6)
        rowcount = table1.row_count
        rowcount1 =1
        ok =0
        while rowcount1<=rowcount
            if (table1[rowcount1][1].link(:text,$UserName).exists?)
              ok =1
               sleep 5
               table1[rowcount1][5].button(:value, 'Delete').click
               sleep 3
               break
             end   
         rowcount1=rowcount1+1
        end
       if(ok ==0)
         sleep 5
         ie.link(:text,'Next >').click
         sleep 5
         test_17_navigateToDeleteUser
       end
       sleep 5
       assert(ie.frame(:index,1).radio(:id,/AssignToAnonymous$/).exists?)
       ie.frame(:index,1).radio(:id,/AssignToAnonymous$/).set
       sleep 3
       assert(ie.frame(:index,1).button(:id,/DeleteUserButton$/).exists?)
       sleep 3
       ie.frame(:index,1).button(:id,/DeleteUserButton$/).click
       sleep 5
       ie.goto($SITE_URL +'controlpanel/membership/membersearch.aspx?SelectedNavItem=BrowseMembers')
       assert(ie.text_field(:id,/searchText$/).exists?)
       ie.text_field(:id,/searchText$/).value ="*"
       sleep 3
       assert(ie.button(:id,/searchButton$/).exists?)
       sleep 2
       ie.button(:id,/searchButton$/).click  
       if(ie.link(:text,$UserName).exists?)
       puts 'User Not Deleted'
       end   
     end     
    
    def test_18_navigateToManageMemberPointsSystem
        ie.goto($SITE_URL + 'controlpanel/tools/PointSystem.aspx')
        assert(ie.radio(:id, /EnablePointSystem_0$/).exists?)
        assert(ie.radio(:id, /EnablePointSystem_1$/).exists?)
        ie.radio(:id, /EnablePointSystem_1$/).set
        assert(ie.select_list(:id, /PointsPostDisplayLevel$/).exists?)
        ie.select_list(:id, /PointsPostDisplayLevel$/).set("Don't show to anyone")
        assert(ie.select_list(:id, /PointsUserDisplayLevel$/).exists?)
        ie.select_list(:id, /PointsUserDisplayLevel$/).set("Don't show to anyone")
        assert(ie.link(:id,/SaveButton$/).exists?)
        ie.link(:id,/SaveButton$/).click
      end
      
    def test_99_closeIE
         ie.close
       end

end 